أسس البرمجة بلغة دلغي 


( شرح مبسط للراغبين في فهم مسار لغات البرمجة بصغة عامة و لغة دلغي على وحه الخصوص ) 


بسم الله الرحمن الرحيم 
تمهيد: 


سنقوم في هذا الكتيب إن شاء الله باقتحام عالم البرمجة الحاسوبية, متخذين من لغة دلفي مطية 
لنلوة الكابة التي يصو إلبعا كل ميرت متاك أو آي محص مك البدابة قن خذاالكالم الزحي 

الم الو ةك ا دة كل جو هول ب ف علو كات لقن فلوة امف اعا اه 
هاو لهذا المجال. 


يجدر بنا الذكر أن لغات البرمجة تتطلب تفرغ ذهني , و أأكد على هذه العبارة, كما أعتقد أن أي إغفال أو 
ابتعاد عن العالم السبراني قد يكلف المبرمج إضاعة الكثير من الوقت لمراجعة ما تعلمه سابقا.لهذا 
ينبغي على كل من أراد الخوض في هذا المجال أن يحرص كل الحرص على تخصيص الكثير من الوقت 
لتعلم البرمجة , أي لغة برمجة, سواء أ كانت من عهد الستينات أو وليدة اليوم.كذلك ينبغي أن لا يشعر 
المرء بالإحباط مستسلما لليأس في حالة ما أمضى الكثير من الوقت دون الوصول إلى نتيجة معينة, فقد 
لاحظت أن الكثير من المبرمجين يستسلمون بمجرد أن يواجههم عائق بسيط.فقد يقول مبرمج اليوم 
كيف لي أن أتابع البرمجة و أنا لم أستطيع حل مشكلة بسيطة كهذه أمام الكم الهائل من الأدوات و 
التسهيلات التي أضحت متوفرة , بينما أسلافنا في عصر الكوبول استطاعوا عمل الكثير و إن قلت 
الإمكانيات. 


جرت العادة عند إختيار عمل ما أن يطرح السؤال التالي: لماذا هذا العمل بالذات؟ 

نحن لن نجيب عن هذا السؤال لأنه متعلق بالقارئ بصفة خاصة و حديثنا عن البرمجة اليوم يبدو بشكل 
عام و إن كنا قد إخترنا الدلفي لكثير من الصفات المميزة فيها.لكن و من أجل الوصول إلى جواب تقريبي 
للسؤال المطروح , لا بد لنا من تصنيف المبرمجين كي يعرف كل شخص الإجابة التي تخصه. 

يمكننا أن نصنف المبرمجين إلى صنفين : 


1- أكادميين: و هم الذين تلقوا تعليمهم بأسلوب أكاديمي في الجامعات و معاهد الكمبيوتر و 
الإعلام الآلي و الهندسة.و تتميز هذه الفئة بالدقة في البرمجة نظرا لتكون الفكر البرمجي لدى 
الشخص, كون أنه تلقى تعليمه وفقا لمنهج مسطر من قبل خبراء.فلا يمكن على سبيل المثال 
أن تجد مبرمجا بلغة دلفي لم يسبق له العمل على باسكال و حتى في يومنا هذا, أي بعد أن 
أصبحت هذه اللغة بمترجمها الشهير من خبر كان, ذلك لأنه تم دمجها في لفة دلفي. مع كل 
هذا لا يمكن الجزم بأن هذه الفئة تمتلك زمام الأمور فكما يعلم الكثير من الإخوة أن جامعاتنا 
العربية تلتزم بالجانب النظري أكثر من الجانب التطبيقي. فلا تستغرب إذا ما وجدت مبرمجا هاو 
يشرح بعض الأمور في لغة دلفي للأكاديمي و إن كان هذا الأخير يحمل قاعدة منوطة بالمعرفة 
الشاملة لخفايا البرمجة. 


2- هواة: يمضون الكثير من الوقت أمام شاشة الكمبيوتر مداعبين لوحة المفاتيح و الفأرة.تتميز هذه 
الفئثة بتلقيها الفكر البرمجي من خلال المطالعة الشخصية أي بشكل عصامي. إن الإرادة القوية 
و حب اكتشاف المجهول هو الأمر اللافت للانتباه لدى هذه الفئة, فعلى الرغم من أنها لم 
تتلقى تعليمها وفقا لمناهج مسطرة إلا أنها تستطيع بلوغ أهدافها بسهولة خصوصا و أن 
الشبكة المعلوماتية أصبحت كالمصباح السحري .أكتب أي عبارة تريد البحث عنها في ءا009 
أو باقي محركات البحث و ستظهر لك العشرات من النتائج .عموما يمكن القول أن عدم الالتزام 
بأي واجبات برمجية هو أحد أسرار هذه الفئة تم إن مفهوم تحويل كل حتمية أو عائق إلى 
محفز هو ثاني أحد أهم أسرر الهواة. 


كذلك يمكننا التمييز بين المبرمجين وفقا لحاجاتهم البرمجية فالذي يعمل في مؤسسة للبرمجيات ضمن 
فريق عمل متكامل بكل تأكيد ليس كالشخص الذي يعمل بمفرده. فإذا كان الأول يعمل على تطوير برامج 
موجهة للسوق تتطلب على الأقل أن لا تتلقى استياء الزبون. فإن الثاني تقتصر أعماله على برامج 
صغيرة تتداول على مواقع الإنترنت ليستفاد منها ,سواءا أكانت مجانية أو تتطلب الدفع المسبق للحصول 
عليها.أقول أن الذي يعمل بمفرده تجده ممزقا بين الكثير من المهام, فإذا كان يطور برنامج قاعدة بيانات 
فلن يجد زميلا لأداء المهام عنه, لأنه يعمل بمفرده.لذا عادة ما نجد أن الهواة يتقنون برمجة تطبيقات 
ويندوز و برمجة الإنترنت و العمل على قواعد البيانات فضلا عن العمل علي برامج الرسم و الفلاش بلاير 
و باقي البرامج التي عادة ما تدمج في أي تطبيق. لكن الشيء الملاحظ أن الهواة منهم من يهدق إلى 
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الانضمام إلى فريق عمل و إن كان لا يملك المؤهل ( شهادة التخصص في مجال البرمجة) و منهم من 
يكتفي بخدمة أغراض خاصة أو دفاعا عن مبادئ عامة. لا يفهم مما سبق أن الذين يعملون ضمن فريق 
عمل لا يدافعون عن مبادئ خاصة أو عامة أو أنهم لا يتقنون باقي التقنيات و إنما يعكس ما سبق ذكره 
الحتمية المفروضة على الهاوي للبرمجة. 


من هنا يستطيع المرء أن يجيب عن السؤال الكلاسكي : 


لماذا البرمجة بالذات ؟ لكسب لقمة العيش, للدفاع عن حرمة الإسلام , لنشر الثقافات المحلية , للرقي 
بالعالم العربي في المجال التقني. لمسايرة عصر تدفق المعلومات.لمساعدة الوالد في المتجر أو 


اف اة قى اة 


إن الكمبيوتر مجرد ألة بسيطة تؤدي مجموعة من المهام المختلفة, كالعد على سبيل المثال.إن مهام 
الكمبيوتر لا تتم إلا وفق سلسلة من الأوامر المترابطة و التي تسمى تطبيقا. يتم تصميم التطبيق من 
رة و ركت هين برها عن ياتى لفان المرفجة اف الروكة فى لعة إلى أكرك مى محرت 
التعقيد , فقد تبدو لغات اليوم أقرب إلى لغة الإنسان, بينما في الماضي كانت أقرب للغة الآلة. 


1- لفة الآلة : هي اللغة الوحيدة التي يفهمها الكمبيوتر بشكل مباشر, فهِي تعتمد بالأساس على 
تعليمات ثنائية, لهذا تسمى باللغة الثنائية.حيث أن أي أمر يوجه إلى الكمبيوتر ينبغي أن يتألف من 
مجموعة من الأصفار و الآحاد ( 0,1)حيث يعني الصفر 0١‏ و يعني الواحد 0۸ .مثلا لو أراد الشخص 
توجيه أمر للكمبيوتر بطباعة حرف ۸ على سبيل المثال فلا بد أن ينشأ الأمر على الشكل التالي: 
1 . يتم توزيع الأرقام السابقة وفق ترتيب معين يصعب إن لم نقل يستحيل على الإنسان 
حفظه .تخيل معي أنك تود أن تكتب فقرة صغيرة بلغة الآلة.إن هذا يتطلب معرفة جيدة للتركيب 
الداخلي للكمبيوتر و كذا العناوين الرقمية لمواقع التخزين. و مع ذلك سنشهد عشرات الأخطاء . 

إن كل كمبيوتر ينفرد بلغة ألة خاصة به مما يعني أن البرنامج الذي صممته للتعامل مع هذا الجهاز 
قد لا يعمل على الجهاز الأخر و هذا ما يزيد الأمر تعقيدا.أمام هذا الوضع المعقد تم إبتكار نظام عد 
آخر لتمثيل النظام الثنائي مثل النظام الست عشري ( ا1۸ 1۴E×۸0۴۲1‏ ) الذي يحتوي على ستة 
عشر رمزا .العشر أرقام الأولى (0 - 9) زائد الست أحرف الأولى (۸-۴) . مما يجعل الأمر أسهل نوعا 
ما. 


2- لفة الأسمبلي (التجمبع): هي عبارة عن وسيط بين لغة الإنسان و لغة الألة ,حيث أنها اللغة 
الأولى التي بدأت الاعتماد على الرموز الهجائية بدلا من النظام الثنائي الرقمي.يقوم المبرمج 
بتصمیم تطبیقات و برامج معينة معتمدا على ترکیب هذه اللغة تارکا مهام ترحمة الأوامر أو 
تحويلها إلى لغة الآلة للمفسر ( اسمبار).و نظرا لكون لغة الأسمبلي قريبة من لغة الآلة فإن 
المبرمج يستطيع الاستغلال الأمثل لموارد الحاسب. حيث أن برامج لغة الأسمبلي تتميز 
بسرعة التنفيذ و قلة الحجم لذا هي اللغة المفضلة لدى الهاكرز و الكراكرز . 


3- لفات البرمجة العليا: تشكل هذه اللغات قفزة نوعية في عالم البرمجة , حيث لم يعد لزاما على 
المبرمج أن يكون على علم بمواقع التخزين و تفاصيل الجهاز.يمكن للبرامج التي تصمم بهذه 
اللغة العمل على مختلف الأجهزة.كما أن تركيبها بات أكثر يسرا من لغات الأسمبلي كون أن 
العبارات المستخدمة فيها هي أقرب للغة الإنسان من لفة الآلة.توجد الكثير من لغات البرمجة 
العليا, فمنها الكوبول و الفورتران و السي و السي ++ , البيسك و باسكال. 


على الرغم من السهولة التي تميزت بها هذه اللغات بالمقارنة لما سبقها, إلا أنها ظلت مقصورة 
على فئة معينة , باعتبار أن تصميم أي برنامج سيستغرق وقت طويل. فمتلا لإظهار نافذة فارغة كان 
ينبغفي علي المبرمج كتابة صفحة أو اثنتين من الأكواد. لقد دفع هذا الأمر شركات البرمجة لتطوير 
برامج من أجل تسهيل العمل على المطورين, فقد تم دمج بعض لفات البرمجة ضمن بيئات متكاملة 
تحتوي على أدوات مرئية و هذا من أجل تطوير البرامج بشكل سريع. فنجد أن لغة البيسك تم 
تطويرها إلى فيزوال بيسك, أما الباسكال فقد ظهر عنها الدلفي الذي نحن بصدد العمل عليه في 
هذا الكتاب. حيث يتميز الدلفي بالخاصية ۸۸0 و التي تعني() €^ ضDevel00 (Rapid Application‏ ي 


التطوير السريع للبرمجيات. 


leda SNe SE ê aE 
الكمبيوتر . نجد برمجة قواعد البيانات و التي تعتمد على لغة الإستعلام البنيوية (501) و هو إختصار‎ 
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ل: )strucured query language)‏ . كما نجد لفات برمجة ویب أو ما يسم scripting languages‏ 
متل لغة AP. , ASP , PHP „javascript , H1۲1 M1‏ . وهي لغات برمجة لتطوير مواقع الإنترنت. 
هنالك أيضا لغات برمجة خاصة ببعض البرامج مثل لغة ١0كلاً‏ 0ا0 و أمأاءء action‏ الخاصة 
بالفلاش بلاير. 

عموما, يمكن القول أن تعلم لغة برمجة واحدة يمكن أن يكون فكرا برمجيا لدى المتعلّم . فمعظم 
لفات البرمجحة تشترك في بعض المفاهيم مثل الكلمات المحجوزة, المتفيرات,الثوابت, الدوال 
الشرطية و الكثير من الأمور الأخرى. 


مقدمة للغة البرمجة دلفي : إن لغة ةط اقلاوأا تعلن من تسميتها أنها لفة البيسك المرئية أو 
الرسومية, بينما التسمية الغير معلنة للدلفي هي باسكال المرئية. و المقصود بهذا أن بيئة التطوير 
دلفى تعتمد في الأساس على تركيب لغة باسكال مصحوية بمكتبة ضخمة من الأدوات المرئية الجاهزة 
و التي يمكن للميرمج استخدامها مباشرة. و هذه الأدوات في معظم الأحوال لا يخل منها برنامج من 
البرامج.فلا يمكن أن نتصور برنامج بدون أزرار أو نموذج إلا فيما ندر. 


كما سبق الذكر فإن لغة دلفي هي لفة التطوير السريع للبرامج باستخدام الأدوات أو المكونات المتوفرة 
مثل الأزرار و النموذج و أداة النص و الكثير من الأدوات الأخرى .يعتبر النموذج هو الحاضن الأساسي لهذه 
المكونات حيث يتم تنسيقها و فق نمط معين يتناسب و العمل المنشود.يعبر عن الأدوات بعدة تسميات 
منها المكونات أو الكائنات.إن التسمية الأخيرة تبدو أكثر بلاغة, حيث نفهم من ذلك أن كل كائن له 
محموعة من الخصائص , من طول و عرض , مسطح أو ثلاثي الأبعاد , مرئي أو غير مرئي, له عنوان 
معين و إسم يختلف بالضرورة عن باقي المكونات التي تشترك معه في الجنس. على سبيل المثال 
يمکن أن نعطي تسمية لزر معين Button1‏ کما يمكن أن نسمي النموذج أيضا بنفس التسمية 
لاختالفهما في الجنس.بينما لو أضفنا زر أخر و أعطيناه نفس التسمية )81۲0١1(‏ فإن برنامج دلفي 
يرفضها لأنهما من نفس الجنس. 


× اد 


تمثل هذه الصورة مجموعة من مكونات دلفي ضمن نموذج رئيسي. كما هو واضح من الصورة فإن كل 
هكرت تمل التسفة الكافة مه جفى النموع شت مكوة وهو الذى بشكل واجوة الهس تخد 
هن الأت و صاعذا وان التضهات الخاصة بجكونات دلقي بجت أن حفط قى الزهن دتما الأم اة فنا 
الأداة 6068© يذهب ذهى الخيرمح قياشرة إلى تاكم الأءاة التي تخمل تقس التسشخصهة في الصوة. 


بالنسبة لمفهوم الخصائص سيتضح لو قمنا بالتلاعب ببعض المكونات.فلو قمنا بتغيير عنوان النموذج 
(”0اtمa)‏ إلى " البرنامج الأول" بدلا من "0۲۳1" نكون قد تعاملنا مع خصائص هذا الكائن و كذلك نفس 
الشيء لو قمنا بإاعطاء مساحة أكبر للأداة ۴01 .إن عمل هذه المكونات يتوقف على مجموعة من 
الأكواد و الإجراءات )0۲٥٥١۵۵01۲٠5(‏ التي تنفذ إثر القيام بحدث معين (6۷6۸) لمكون ما .فالنقر مثلا يعتبر 
حدث و تمریر الفأرة على أداة معينة يعتبر كذلك حدثا . فيمكننا مثلا إعطاء أمر بإغلاق البرنامج إثر تنفيذ 
حدث تمرير الفأرة على الأداة .]18٤)80×1‏ و هكذا لو قام المستخدم بتمرير الفأرة على هذه الأداة فإن 


البرنامج سوف يغلق مباشرة. 


تمر البرمجة بدلفي بمرحلتين أساسيتين , يتم في المرحلة الأولى تنسيق و ضبط خصائص المكونات 
النموذج.بينما يتم في المرحلة الثانية كتابة أكواد برمجية ضمن إجراءات مرتبطة بأحداث معينة. 


عند فتح برنامج دلفي فإنه يقوم تلقائيا بإنشاء نموذج يحمل الخصائص أ و التي يمكن تغييرها 
من قبل المبرمج.فإذا عرفنا سابقا أن المرحلة الأولى تتم على النموذج فأين با ترى يتم كتابة الإجراءات؟. 
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مثلما يقوم بإنشاء النموذج بشكل تلقائي, فإن دلفي يقوم بنفس العمل مع الوحدات كأأ١لا‏ و التي يتم 
فيها كتابة الإجراءات و الوضائف ,مع العلم أن كل نموذج ينفرد بوحدة خاصة به . 
عادة ما تكتب الأوامر بين الكلمتين المحجوزتين ١أوعط‏ و 6۸١‏ . 


procedure Tform1.Button1Click(Sender: TObject); 
begin 

هنا تكتب الأوامر 

end; 


end. 


السطر الأول يضم إسم الإجراء وهو الإجراء المرتبط بحدث النقر على الأداة 1١0ان0.‏ 
أما السطر الأخير فهو يعلن عن نهاية كل الإجراءات حيث ما يتم كتابته بعد هذا الأمر سيتم تجاهله أثناء 
تنفيذ البرنامج. و معنى التنفيذ هو تشغيل البرنامج بعد الإنتهاء من برمجته جزئيا أو كليا. أي بعد الإنتهاء 
من وضع التصميم تأتي مرحلة التنفيذ و التي من خلالها نكتشف ما إذا ارتکبنا أخطاء برمجية ما .لأن 
دلفي عادة ما يفضح المبرمجين في هذه المرحلة(مجرد مزحة, أقصد ينبههم لوجود لبس ما في الكود) 
قد يبدو الجانب النظري صعب الفهم نوعا ما لكننا بمجرد البدء في العمل التطبيقي ستتضح الأمور. 


( Integrated Development Environment ) ةlelكتملا بيئثة التطوير‎ 
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تمثل هذه الصورة الواجهة الرئيسية لبيئة التطوير المتكاملة الخاصة بلفة دلفي.حيث تحتوي على كل ما 
یحتاجه المبرمج من آدوات لبناء برنامجه و تجریبه . و يأتي مع بعض نسخ دلفي برنامج ۸۱5۲۸11| 
110 الذي يسمح بتحزيم أو عمل م1٥5‏ للبرنامج الذي تم تصميمه, وهذا البرنامج يأتي منفصل عن 
بيئة التطوير المتكاملة.لكن لن تحتاج إلى هذا البرنامج لتوزيع برنامجك في كل الأحوال.لأن دلفي يدعم 
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خاصية 20١€‏ 31۵0ء مما يجعل المبرمج يشغل برنامجه خصوصا إذا كان صغير الحجم دون الحاجة 
لتحميل أي ملف إلى جهاز الزبون.و كي نفهم خاصية 210١٥‏ 30ء يمكن أن نعطي مثالا عن الفاكس 
فهذا الجهاز لا يحتاج لأي جهاز آخر لكي يعمل, بينما الطابعة لا تدعم هذه الخاصية لأنها تحتاج لجهاز 
كمبيوتر لكي تعمل .هذا المثال یتعلق بالعتاد و یمکن تفسیره على 50۲۲۷/۸۴۸۴. مع هذا يجب أن لا 
نعتقد بأن الدلفي لن يحتاج لأي ملف مرفق لكي يعمل, بل سيحتاج المبرمج إلى عمل 5610 لبرنامحه 
لكي يرفق الكثير من الملفات, ففي أبسط الأحوال ستحتاج لتحزيم بعض ملفات الخطوط مع برنامجك و 
التي يعتقد أنها غير موجودة عند جهاز الزبون, فضلا عن الملفات الأساسية التي بدونها لن يعمل 
البرنامج بشكل ملائم أو لا يعمل على الإطلاق. 


عموما يمكن تقسيم بيئة التطوير دلفي إلى 6 أجزاء كما في الصورة: 


العنوان المياة 
title bar‏ او شريط العنوان حيث يظهر فيه إسم المشروع بعد رقم إصدار دلفي, و يمكن 


مثل القائمة ع۴۱1 و ۴01١‏ و منها ما هو خاص ببيئثة دلفي: 


OT I O oy file 
إغلاق بيئة التطوير.‎ 


تضم بعض الأوامر الهامة كالتراجع عن آخر عمل 


للقيام بعملية البحث عن أي كائن أو عبارة داخل 
البرنامجح 
تستخدم لإظهار بعض النوافذ في بيئة التطوير. 
لإدارة المشروع و بناءه قضلا عن إستيراد و إضافة 
کا اعری و کا د ا اتک ہے کے دا 
النماذج و الأيقونة. 
ME COC CET CNT‏ 
المؤشر الأخضر الذي يظهر في الصورة أعلاه.كما 
تتميز هذه القائمة بتوفر عدة أوامر للتعامل مع 
تنقیح البرنامج او ما يعرف ب debu 99i ٣9‏ . 


للتعامل مع المكونات كإضافة آدوات جديدة غير 


موجودة ضمن قائمة الأدوات, أو العمل على 
ادها 


Database‏ تستخدم للتعامل مع الأدوات المرتبطة بقواعد البيانات 
Tools‏ تظم قائمة من الأدوات و البرامج المنفصلة و التي يمكن 
استدعائها من هذه القائمة لتسهيل المهام على 
المبرمج 

Windows‏ من القوائم الشائعة في مختلف البرامج و وظيفتها 
التحكم في ظهور النوافذ المفتوحة داخل بيئة دلفي. 
Help‏ قر احدى احم الت عم اعا على ملت 
الممساعدة الخاصة بلغفة دلففي و بيئة التطوير 
المتكاملة.كما أنها تحتوي على الأمر هة و الذي 
يمكن المبرمج من معرفة تفاصيل إصدار الدلفي التي 
يعمل عليها .کما نجد قسما مخصصا لبعض المواقع 


الخاصة بشركة بورلاند و لغة دلفي بصفة خاصة و التى 
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يمكن للمبرمج زيارتها خصوصا إذا أراد مطالعة الأاسئلة 
الشائعة عن دلفي. 

و تحتوي على مكتبة ضخمة من الأدوات المرئية التي تميز لغفة دلفي عن باقي 

اقات الہک ومکا ت حن الات ڪس وا الى ایطاف کت ات كل 

باب يحتوي على مجموعة من الأدوات الخاصة به. يمكننا بصفة عامة عرض الأبواب 
component‏ اuaءاV‏ | الأساسية في هذا الجدول. 
Library‏ أبواب الأدوات الآكثر أ نجد في القائمة 03۲۵ء الأدوات القياسية و 
إستعمالا الى لامكا الا اء عا مل الا 
bS .Panel, Label, ComboBox, Button‏ نجıد‏ 
قوائم أخری Win3.1,Additional : Jie‏ 
dialogs ,Nin 32, ample, System,‏ . و التي 
تتعدی مهام الأدوات الموجودة فيها من أدوات 
تحاكي أنظمة التشغيل إلى أدوات للتعامل مع 
دت لار فل کی اوت ا 
أبواب آدوات قواعد أ توجد الكثير من الأدوات للتعامل مع قواعد 
البيانات البيانات من حيث الإتصال و إنشاء الإستعلامات 
و التي يمكن الوصول إليها من خلال عدة قوائم: 
ADO,DBE, DataSnap, Dbexpress,| nterbase,‏ 
Data access, Data contorols.‏ 
و تضم هذه الأُخيرة الأدوات الأكثر إستعمالا في 
قواعد البيانات مثل: 
DBGrid, DBNavigator, DBEdit‏ 
أبواب أدوات التعامل مع أ و تتنوع فيها الأدوات حسب التبويب التي 
الويب تنضوي تحته و إن كانت في مجملها تصب في 
مفهوم برمجة تطبيقات ويب و التعامل مع 
المزود و الزيون .اهم الأبواب المؤدية لهمذه 
الادرت هی : 
WebServices,l nternetExpress,l nternet,‏ 
WebSnap,‏ 
بالنسبة للاأدوات التي يمكن إستدعائها من القائمة أ١٥٣0م٣٠ه»‏ في شريط القوائم, فهي عادة ما تظهر فقي 
التبويب ×عAcİİ۷.‏ 


النموذج ۴٠٣۳(‏ ) | و هو الحاضنة التي تجمع الأدوات المستخدمة في المشروع, حيث أنه يشكل 
واجهة التطبيق . 

Obj ect‏ يقوم هذا الإيطار بعرض الأدوات المستخدمة قي المشروع بشكل علائقي. حيث 

TreeView‏ يمكن للمستخدم مشاهدة الأدوات و تحديدها من أجل ضبط خصائصها من نافذة 
الخصائص. 

: يحتوي هذا الإيطار على صفحتين اساسيتين‎ Object 

Inspector‏ sعrtiم0pاP:‏ و تضم خصائص كل أداة مستخدمة, حيث يمكن للمبرمج التعديل 


عة الاعات فمكا مى اغا الت المرفط الذى توه انشا احا انر 
حدوثه, يمكن إختيار أي حدث بالنقر المزدوج على الإيطار المقابل له, و سوف تفتح 
ا کو اک م اا وا ات ال 

Buttons‏ #ءمeمS‏ | تضم هذه الأشرطة آزرارا للوصول السريع لأهم أوامر دلفي .يمكن تنفيذ البرنامج أو 

إحاف فو مر خلال قذاالت رط ب نا الا أن اما روات اوا لي 
عاك ما عر عد ودم وهر العا عل فت مل رمع الم قق ال الا 

ظهر التعلیق التالی "۴9 ۸1۸" . و الذي يخبرنا ر الزر المحدد. 

EET EU ET GIL SE UNIT 

عکں دی الد کے الاح اة لی ت دا بام الةو یی اة ن 
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لا يمكننا فهم الدور الحقيقي للعناصر السابقة الذكر ما لم نقم بتجريب العمل عليها.لهِذا سنستعجل 
قليلا لإنشاء أول مشروع بلغة دلفي. 

اول مشروع بلغة دلفي: 

عند تشغيل دلفي فإنه يقوم تلقائيا بإنشاء نموذج كي يحوي الأدوات التي تود استخدامها. لهذا ما يجب 


عليك القيام به هو وضع الأداة ١0ا8‏ على النموذج ,حيث يمكن الوصول لهذه الأداة من قائمة الأدوات 
Standard‏ „ 


قم بتحديد هذه الأداة بوضع مؤشر الفأرة عليها ثم انتقل إلى نافذة الخصائص لضبط خصائصها كما في 
الصورة. 
Object Inspector‏ 
Buttorl‏ | 


Properties EEE | 


ûzlon 

Hûnchars 0 alet. akî op] 1 
_BiDiMode __|bdLekToRight = | 
Kapton راا‎ 

HEuonstraints | [TSizeConstrain 

| Cursor HandPaint 7] 

| .Delaul FEE. 
Draglursor cDrag | 
_Dragkind .dkOrag | 
` DragMode | dmManual 


All shor 


يمكن ملاحظة أن إسم الأداة في أعلى نافذة الخصائص و هو "80١1"‏ .أما عنوان الأداة أي "١0أامهء"‏ 
فهو " مرحبا". بالنسبة للخاصية ٥1۲50۲‏ فهي " ١0م ٠12١۵‏ " .لاحظ أن عنوان الأداة يظهر مباشرة بعد 
القيام بتعديله حيث كان في السابق Lo , Button1‏ الخاصية التانية التي قمنا بتعديلها ٤1۲50۲‏ فهٍي 
لتحديد نوع المؤشر الذي يظهر على الأداة عند تقريب مؤشر الفأرة منها.و كما تشاهد في القائمة, فقد 
اخترنا مؤشر اليد .لكن هذه الخاصية لا يمكن ملاحظتها أثناء التصميم بل لابد أن ننتظر وقت التنفيذ.توجد 
الكثير من الخصائص التي يمكن التعديل فيها, لكننا مع ذلك لن نثقل عليك في مشروعك الأول. 


الآن حان وقت كتابة الأكواد.حسنا, قم بالنقر المزدوج على الزر " مرحبا" في النموذج أو على الأداة 
Button1‏ في إیطار ect ۲۲e۵۷ieW‏ زط0 لیظھر لك محرر الأكواد. 
بين الكلمتين المحجوزتین 891١‏ و E۸٩۵‏ أكتب الأمر الذي يظهر باللون الأزرق: 


procedure Tform1.Button 1 Click(Sender: TObject); 
begin 

;( ' مرحبا بكم في عالم دلفي' M1» e)‏ 5۶۸0۷ 

end; 


end. 


مفاد الأمر السابق هو :عند النقر على الأداة 810١1‏ , أظهر الرسالة التالية " مرحبا بكم في عالم 
دلفي". 

للتأكد من صحة ما قمت به , يجب تنفيذ البرنامج و ذلك إما من القائمة ۸1١‏ ضمن شريط القوائم أو 
السهم الأخضر ضمن 83۲5 8٥۸5‏ ١۵عم5‏ , أو بالضغط على ۴9 .قم بالضغط على الأداة التي تحمل 
العنوان" مرحبا " و سيظهر ما يلي: 
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Project1 


مرجبا بكم قي عالم دلفي 


إذا نجحت العملية فهذا أمر جيد. إذا لم تنجح قم بمراجعة الكود ,فلعلك نسيت قوسا أو حرفا ما ضمن 
الكود المستخدم .فلو قمت بكتابة 5۸0۷7٠5308‏ فإن تنفيذ البرنامج لن ينجح لأنك ارتكبت خطأً املائيا. 
بعد نجاح العملية, قم بإغلاق البرنامج من زر الإغلاق أو من خلال Program Reset‏ في قائمة R7‏ , و 
توجه مباشرة إلى القائمة ١اأ۴‏ و اختر 5ة ا)6 إه۲م ه52۷ من أجل حفظ المشروع .يستحسن أن تنشأً 
مجلد مسبقا للمشروع و ليكن في القرص € تحت عنوان ۴۲٠١9۲3۳١‏ .طبعا لك الحرية في إسم المجلد و 
مکانه و لکن ما اقترحته لتسهيل الوصول للمجلد فقط.حسنا بعد قيامك باختیار ۶۴۵٤٤ A5‏ 5۵۷€ قم 
بتغيير إسم الوحدة من ۲1٣لا‏ إلى 1۴110۴ تم قم بالحفظ في المجلد المحدد .تم قم بتغيير إسم ملف 
المشروع من ٠)11‏ ز٠۴۴‏ إلى 1۴110. قبل إغلاق بيئة دلفي قم بفتح المجلد الذي حفظت به الملفات 
السابقة.حيث ستجد ست ملفات. لكن أين الملف التنفيذي الذي يحمل الإمتداد ۴×۴؟, 

لا عليك قم بتنفيذ البرنامج الذي صممته مجددا من بيئة دلفي , ثم قم بإغلاقه و إغلاق بيئة دلفي ككل, 
و انتقل إلى المجلد و ستجد الملف التنفيذي , حيث يمكنك النقر عليه بشكل مزدوج ليعمل خارج بيئة 
دلفي. 

إن ما قمت به هو مجرد برنامج صغير يمكن أن تنقله لجهاز آخر لا يحتوي على بيئة دلفي, و سوف تلاحظ 
أنه سيعمل دون آي مشكلة.طبعا يمكنك أن تبني برامج محترمة و توزيعها بهذا الشكل لكن ينبفي أن 
تكون ملما ببعض الأمور الهامة التي تساعدك في بناء برامحك , مثل التركيب الداخلي للغة دلفي و كذا 
كيفية إنشاء واجهة مستخدم سهلة و أنيقة في نفس الوقت. 

في الخطوات القادمة لن نكرر ما ذكرناه سابقا مثل كيفية تنفيذ المشروع أو حفظه أو إضافة أدوات إلى 
النموذج .إلا إذا دعت الحاجة إلى ذلك . 

ملاحظة هامة : إن كل أداة في لغة دلفي تحمل إسم خاص بها يظهر في نافذة الخصائص على الشكل 
مه .كما أن لمعضم الأدوات عنوان C300١‏ . العنوان يظهر على الأداة بمجرد تعديلها.بينما الإإسم 
يقتصر إستخدامه ضمن الأكواد البرمجية .ببساطة يمكن أن تكتب عنوانا باللغة العريية كما عملنا سابقا 
(مرحبا) بينما لا يمكن استخدام إسم باللغة العربية. 

بعض الأدوات لا تحتوي على الخاصية ٤30١‏ حيث ينوب عنها الخاصية ٠٠×‏ أو أمور أخرى, كما هو 
الحال للأداة أ۴. 


الخصانص و الأحدات 


- الخصائصضص 


تشترك الكثير من الأدوات في بعض الخصائص التي لابد من معرفتها. بينما تبقى بعض الخصائص حكرا 
على أداة دون أخرى. 

في الشكل التالي سنقوم بالتعرف على أهم الخصائص. و نأخذ الأداةق ۴۵۲۳ كمثال لعملنا هذا , بينما 
يستطیيع کل شخص اختبار خصائص باقي الأدوات بمفرده. 

طبعا لا يسعنا الوقت للحديث عن جميع الخصائص و إنما سنركز على الأهم فالأهم. 
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BorderStyle 


Visible 
WindowState 


Height/ Width 
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لجعل المحاذاة لليمين أو اليسار . أعلى أو 
أسفل أو تأخذ جميع المساحة. على أية حال 
قي حالة النموذج ستنطبق المحاذاة على 
الشاشة.بينما لو و ضعت أداة ما على نموذج 
و ضبطت المحاذاة فستكون هذه المحاذاة 
بالنسبة للنموذج. 

لتمكين شريط التمرير في النموذج. متلا قم 
بوضع أداة ما و اعطها مساحة أكبر من مساحة 
النموذج. و ستلاحظ ظهور شريط التمرير 
.يمكنك تعطيل الخاصية باختيار ٥كاج۴‏ 
SE TEETER EDNEESD‏ 
الخاصية مهمة جدا فقي البرامج الموجهة 
للسوق العربية. 

لتمكين أو تعطيل خاصية التكبير و التصغير 
لواجهة النموذج.( في بعض الأحيان تحتاج أن 


تمكين التعامل مع النموذج من قبل المستخدم 
او تعطیله 


نوع الخط ,لونه وحجمه 


الخاصية 55/0۸۲٠٥8‏ تجعل البرنامج دوما في 
المقدمة 

لإضهار تلمیحات. سبق و أن ذکرنا أنه بمجرد 
وضع الفأرة على أحد أدوات دلفي إلا و يظهر 
الشيء شريطة ضبط خاصية ا٣‏ أ0W۳۲اS‏ على 


لتحديد حالة نافذة البرنامج.إما تشغل كامل 
الشاشة أو أن تفتح على حالة التصغير. كما 
يوفر دلفي إمكانية ترك النافذة على الحالة 
لی دجمت علا 


ES IE EE O 


للتعامل مع شريط التمرير الأفقي و العمودي. 


يمكنك تجرية كل هذه الخصائص لمعرفة عملها 
بشكل واضح.و من المؤكد أنها جد مفيدة 
للمبرمج في التطوير السريع لبرنامجه. 

عموما, يمكن ضبط معظم الخصائص برمجيا. 
من خلال بعض الأأكواد.فمثلا لو أردنا أن نفير 
خاصية عنوان النموذج برمجيا فهذا الكود 
سيكون كفيلا بالعملية 

Form1.caption:=' PROG ' 

يمكن جعل الكود يعمل مع بداية البرنامج لو 
اخترنا الحدث م أaعا٬€٣"0‏ و الذي سنتعرفق 
عليه ضمن قائمة الأحداث التالية. 
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HorzScrollBar 
leon 
EeyPreylawy 
Left 
E 
Mame 
UbjectMerultel 
ld Create rdel 
ParentBiDiM ad 
ParentF ant 
PiuelsPerlnch 
Popup en! 
Position 
Print cale 
Scaled 
Screen nap 
ShamwHint 
_ SnapBulfter 
Tag 
Tap 
_TransparentCol 
_ TransparentCol 
LIseDockMana) 
WerSecrallB ar 
Wisible 
Width 
Wirda E1 
WindamStake 


2- الأحدات 


كك كار الخدت الاس من خلال الغانمة النالة و كلك بالق الف على الا ظا المقابل اها 
لتفتح نافذة تحرير الأكواد. سنأخذ الكود السابق الذي يقوم بعرض رسالة للمستخدم مع الأحداث التالية 
کي نفهم جيدا وضيفتها 


اسم الحدن ا 
Properties Events O ASAE OFAC NVETE‏ 


OnClick 


Oncreate 


e حدث النقر‎ OnDblIClick 
حدث عدم التنشيط اا1‎ | Deactivate 


OnKeyPress 


الأاحيان تقوم بادراج عبارة في محرك بحث 
لبرنامج أو موقع ما و تقوم بالضغط على اlلjر Entr‏ 
لتبدا عملية البحت, اي دون إستخدام الفارة. 
E cT‏ 


SAMO LEIS‏ حدث تمریر قث 


توحد بعض آدوات و لا توحد 
ف İÎخ—رé WebBrowse ölدİJ| Ii.‏ 
تحتوي على الكثيرمن الأحدات الغير 
متواحدة في الأدوات الأخرى. 
بمرور الوقت يمكن للمبرمج اكتساب خبرة 
أكبر في التعامل مع الأحدات . 


قم بالنقر المزدوج على الحدث عءها€٤"0‏ 
و اكتب الكود التالي: 

;( "إلى llأlaء' ShowMessage(‏ 
قم بتجرية البرنامج. حسنا, قم بإغلاقه و 
اوو اا وا ما فہا بے ہہ مایلی 
عند إغلاق النموذج ( هذا يمثل الحدت) 


أظهر الرسالة ' إلى اللقاء' (و هذا هو الكود) 


پمک تف تعس الى مع باقى الاعات . 


فكرة الأحداث جميلة جدا. وهي تساعدك على 
التعامل مع المستخدم .تستطيع استغلالها 
لافتتاح برنامجك بملف صوتي معين ( آية أو 
الشيء, لكن يرجى الإنتباه لمثل هذا الإجراء لأنه 
في بعض الأحيان يأخر فتح البرنامج مما يسبب 
استياء لدى المستخدم. خصوصا المستخدم 
العربي فهو قصير النفس .لذا هو لا يحتمل أن 
تاخره بحدت ما مع کل تشغیل للبرنامج. 
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Action 
ActiyeControl 
Menu 

Ut bjecthd erulfel 
UnAztiyate 
U nCanf Elz 
OnClick 
UnlLlase 
Unllosell ery 
U nConstrainedl 
OnContextPopl 
„ Dnkreate 
UnDbIClick 
_UnDeactiyate 
UnDestroy 

, DnDockDrap 
OnDockO yer 
„ DnDragDrap 
UnDragUwer 

„ DnEndlDock 
UnaelSitelnfa 
. UnHelp 
OnHide 
UnkeyDamwn 
UnkeyPrezs 

„ Dnkeylp 
UnMouseD or 
_UnMouseM awê 
UnMousellp 

„ DnMouselwhes 
UnMousel' hee 
_UnMousew'het 
UnPaint 
_UnResize 
UnShartlut 
UnShow 
OnStartDock 
OnlinDock 
PopupMeru 
ida EFL 
اك‎ shomn 


مشاريع عملية 


بعدما تعرفنا على الخصائص و الأحداث , ننتقل الآن لإنجاز بعض المشاريع العملية التي تساعدنا على 
فهم التركيب الداخلي للفة باسكال.نحن في هذا الكتيب لن نتعمق في فهم تركيب هذه اللغة و إنما 
سنكتفي ببعض النماذج التي تجعلنا نعتاد على التعامل معها في معظم المشاريع. 

إذا كنت ترغب في فهم كل صغيرة و كبيرة عن لغة باسكال المدمجة في لغة دلفي فإننا ننصحك 
بمطالعة الكتب المتوفرة في السوق أو على الشبكة المعلوماتية(سنخصص في آخر الكتاب فسحة 
للتعرف على الكتب و المواقع المهتمة بهذه اللغة). 


بداية يمكن القول أن معظم اللغات تحتوي على الدوال الشرطية و التي تساعدنا على القيام بحدث وفقا 
لتحقق الشرط من عدمه. 

مثلا في بعض البرامج يطلب منك إدراج كلمة المرور , فإذا كانت الكلمة صحيحة يفتح البرنامج أما إذا 
كانت خاطئة فيغلق البرنامج. 

سنقوم في المشروع التالي بنفس العمل .حيث سيطلب من المستخدم إدراج كلمة مرور نحن 
نحددها.إذا توافقت كلمة المرور المدرجة في الإيطار المخصص مع الكلمة التي حددناها سنقوم بتغيير 
عنوان النموذج إلى عبارة ' هذا البرنامج مسجل' 

أما إذا كانت كلمة المرور خاطئة فإننا نفير عنوان النموذج إلى عبارة ' غير مسجل' 

الصورة التالية توضح ما سبق ذكره. 


TT 


لا حظ أن النموذج في الخلف لا يجتوي إلا على أداة و احدة هي ۲۲0۸ل8 . 
قم بانشاء مشروع جديد و ضع الأداة ۲۲0۸لا8 على النموذج ,ثم انقر نقرا مزدوجا عليها و اكتب الكود 
التالي: 


procedure TForm1.Button1 Click(Sender: TObject); 
var 
InputString: string; 
begin 
InputString:= I[nputBox ( ,'أدخل كلمة المرور', ' كلمة المرور'‎ ''(; 
if InputString = 'DELPHT' then 
Form1.Caption:=( ' هذا البرنامج مسجل‎ '( 
else 
Form1.Capti0n:=)'لجسم ;('غير‎ 
end; 


قم بكتابة الكود الظاهر باللون الأزرق لأن باقي العبارات تدرج من قبل دلفي تلقائيا. 
سنتعرف الآن على الكود خطوة خطوة. كي يكون باستطاعتك انشاء نماذج مماثلة لا حقا. 
قمنا أولا بالإعلان عن وجود متغير ' ٠۵۲‏ ' 

اسم المتغير هو ' 151۸1۸6ا۸0| ' و هو من نوع 5۲۸١١6‏ أي سلسلة نصية 
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حیث يمکن أن يكون المتغیر من نوع حرف C1۸۴8‏ , سلسلة نصية 51۸|N6‏ , بولین 8001٤۸۸۱‏ .عدد 
صحیيح E6٤۸‏ آN|..‏ 

بالنسبة لإسم الف , يمكنك استبداله بأي تسمية أخرى . 

بعد العبارة 0٤٥91١‏ الت تعني بداية تنفيذ الكود, نجد أننا قد أسندنا قيمة للمتغير وهي التي تظهر بعد 
المساواة. وهذه القيمة يمكن إستبدالها و فق الحاجة. ما يظهر بعد المساواة هو عبارة عن صندوق 
الحوار الذي يظهر في الصورة .حيث أن كلمة المرور تكون عنوانا لصندوق الحوار اما العبارة التي تليها فهي 
لتحديد الطلب.في حين أن المزدوجتين التي تظهر في آخر السطر تترك شاغرة دون أي مساحة ا 
مخصصة للمستخدم لأدراج كلمة المرور. 

لاحظ أنني قمت بترك مساحة بين المزدوجتين كي يفرق القارئ لهذا الكتاب أنها ليست الرمز( "). 
باعتبار أنني أستخدم معالج النصوص ۷0۸0 ۸050۴۲) |1" في تحرير هذا الكتيب. 

السطر الموالي يحتوي على البنية الشرطية و التي تبتدأ بالكلمة ۴| و تنتهي في نفس السطرب 
الكلمة المحجوزة ۲۸۴٤١‏ 

مفاد الأمر السابق : إذا كان النص المدرج في صندوق الحوار يساوي الكلمة ' 0۴1۴۲۱ ' إذن حقق 
الشرط الموالي , أي اجعل عنوان النموذج هو ' هذا البرنامج مسجل' 

عدا ذلك ( أي إذا كانت الكلمة المدرجحة من قبل المستخدم ليست )(' DELPH|‏ ' ( 

إجعل عنوان النموذج ' غير مسجل'. 


IF‏ إذا 
THEN‏ إذن / بالتالی 
Else‏ عدا ذلك ( عدم تحقق الشرط) 


نفذ البرنامج و قم بإدخال كلمة المرور الصحيحة )0٤1۴۲۱(‏ و ستلاحظ تحول عنوان النموذج إلى 


قم بتجريب كلمة أخرى و ستلاحظ تحول العنوان إلى ما يلي: 


نحن في مثالنا هذا ريطنا نتيجة عدم تحقق الشرط بتحويل عنوان النموذج إلى ' غير مسجل 
يمكنك استبدال هذا الشرط بشرط آخر. 
قم بحذف آخر سطر في الكود 


;('غير مسجل Form1.Caption:=('‏ 


و استبداله بالأمر التالي: 
Close;‏ 
و ستلاحظ انهاء البرنامج في حالة عدم تحقق الشرط. 


كان هذا مجرد مثال بسيط عن الدالة الشرطية ۴| و ستلاحظ عدم كفائتها في بعض الأحوال. لكن لا 
عليك فلغة دلفي توفر لك الكثير من البدائل. 

من بين الدوال الشرطية الأكتر شهرة في لفة دلفي نجد الدالة 25 .و التي سنستثمرها في 
مشروعنا التالي. 

المشروع التالي هو قاموس إنجليزي عربي ناطق. 

طبعا لن نعتمد على قواعد بيانات في هذا المشروع نظرا لتطلبها للكثير من الوقت و التركيز. 

لكن قبل ذلك خذ لك نفسا. قبل المتابعة. 
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القاموس الإنجليزي العربي الناطق: 

في هذا المشروع يرجى الإنتباه للدالة الشرطية فهي الأساس في مشروعنا هذا. 

قبل البدء لا بد و أن يكون برنامج 1٤٥ع50‏ 0 Microsoft †e×‏ مثبتا على جهازك لاضافة خاصية النطق 
للبرنامج كما و لابد من توفر نفس البرنامج على جهاز الزبون لكي يعمل بنجاح. 

يمكنك الحصول على البرنامج من موقع الشركة على الشبكة, كما يمكن الحصول عليه ضمن برامج 
القواميس الناطقة إن كنت تملكها. 

إن لم تستطع الحصول على هذا البرنامج , فلا يمكنك الأستفادة من هذه الخاصية. 


أولا يجب إضافة الأداة 01۲٠١٤55‏ للقائمة ×ع۷أا)۸ و ذلك بالإنتقال للقائمة ٤0۳00١۴۸‏ ضمن شريط 
القوائم كما في الصورة و |ختڙlaر Import ActiveX Control‏ . 


Lomponent | Gatabase Iools Winda 
êl New Lomponent,,., 

i Install Component... 

Import Artive# Zontral,,‏ ا“ 


iB Install Packages... 


Lonfigure Palette,,, 


قم بتحديد الأداة كما في الصورة.. 


Import ActiveX 


Import Acle, 


| Mizrosoft Data Bound List Controls 5.0 [5P3] f¥ersion 1.1] 
| Microsoft DDS [¥erslon 2.0] 
Microsoft Direct Speech Recognition [¥ersion 1.0 
‘Microsoft Direct Tentto-Speech Yerszlon 1.0 e 
| Mizrasoft Directênimation Media Controls fWersion 1.0] 
Microsoft Flenarid Control 5.0 [5P2] [Yersion 1.0] 
Microsoft Forms 2Z. Object Library f¥ersion 2.0] 


CWINDOWSspeechsty'oice. dll 
Llass names: TDirectsS 


Palette page: Active 
Unit dir name: ÎC.*Program FilesBorlandhD elphirflrnparts", 0 


Search path: [$IDELPHISLIb:$IDELPHIREiN:BIDELPHIMmpor 2 


Install... Lancel Help | 


تم اختر ااھtیئم‏ | . ٤‏ 1 
بعد ذلك انتقل لقائمة الأدوات ×۷۴ا)۸ ضمن شريط الأدوات و ستجد الأداة التي اضفناها كما في 


Ay & i © | 
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الآن قم بانشاء مشروع جııد File/new/ applicati0¬‏ 

ضع الأدوات التالية على النموذج: 

أولا ضع الأداة ٤0١۲0183۲‏ التي يمكن الوصول إليها من قائمة الأدوات ۸00/0١21‏ و اضبط خصائصها على 
النحو التالي 

Align = alTop 

ثانیا,قم بوضع زرین من نوع 8٥١‏ على الأداة 0۱82۲٣١٥ء‏ من القائمة ۸03۲۵ 513, زائد زر آخر من نوع 
B0۸‏ من القائمة ۸0۵/0١2‏ و اضبط خصائصها على النحو التالي: 


Caption= عleتۃw|‎ Button1 
Captionı= Jaz Button2 
Kind= bkClose Caption= جaرخ‎ BitBtn1 


صع أداتين من نوع Label‏ و غير تسمیتهما کما في الصورة 
ضع أداتين من نوع ا۴0 و اجعل الخاصية »ها فارغة , كما يمكنك تغيير لون الأداتين إلى )8٥0ء٠‏ اا). 


لا تنسى جعل لون الخط هو الأسود من خلال الخاصية font‏ 


أضف الأداة ×580أا من القائمة 53۸02۲۵ واضبط خائصها كما فعلت معا الأداة أ۴ 
إضافة إلى الخاصية التالية 

Align=alLeft 

أضف الأداة 55Sا٤٠0۲‏ من القائمة ×ع۷أا›A‏ . 
واضبط خصائصھا كما يلي 

Visible=false 

أضبط خصائص النموذج على النحو التالي: 
BiDiMode= bdRightToLeft‏ 

القاموس الناطق =١0|ام ٤٣2‏ 

Color= clMaroon 

من التفرع 0۸ 

Color= clWhite 

Border| C0۸15 من التفرع‎ 
BiMaximize=false 


و سوف يكون النموذج على النحو التالي 


۳( ] القاموس الناطق 


المغردة الإدجليزية 


البشردة الخربية 


كي تظهر الأزرار على الشكل الذي يحاكي نظام م× كس0ل" W۷‏ يمكنك إضافة الأداة ائه؟أ٣‏ 0۷× من 
القائمة ١132‏ . و هذه الأداة متوفرة ابتداء! من الإصدار السابع لبرنامج دلفي. 

ما تلاحظ أنه ناقص سوف نقوم بإضافته فيما يلي : 

حدد الأداة ×80ءأا 

من الخاصية ٠۲۴۳١١‏ قم بتعبئة النافذة التي تظهر كما في الصورة. 

انقر نقرا مزدوجا على الأداة 180×1ءأا و اكتب الأمر التالي بين الكلمتين المحجوزتین 8۵0|١‏ و ۴۸۵ 
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Case ListBox1.ItemIndex of 
Û eI ex — ul: 

1L EINEN E, 

2 EAM ER 

3 : edit2.text := 'فiأ'‎ ; 

G4 EOC, 

5 CONLERSaSG 

6 : edit2.text:='iliwÎ' ; 

1 :edit2.text :='iùbİ' ; 
SEIN e 
E E 

end; 

edit1 .text:= ListBox1.Items[ListBox1.ItemIndex] ; 


مفاد الكود السابق هو في حالة التعامل مع عناصر الأداة 180×1ءأا فإن الضغط على العنصر الأول في 
القائمة سينتج عنه تغيير في نص الأداة ۴02 و فق ما يحدده المبرمج.و قس على هذا النحو مع 
العناصر الموالية. 1 
السطر الأخير في الكود يسمح بإظهار العنصر المحدد في القائمة في أداة النص ٤01‏ . و الغاية من هذا 
الأمر هو تمكيننا من تسهيل نطق الكلمة المحددة . 
جرب البرنامج و ستلاحظ عملية الترجمة. 
بالنسبة لخاصية نطق الكلمات المحددة فهي جد سهلة: قم بالنقر المزدوج على زر الإستماع, و اكتب 
الكود التالي: 

DirectSS1.Speak(Edit1.text) ; 


بالنسبة لزر الخروج فهو لا يحتاج لأي أمر لكن مع ذلك. يمكن استعمال الأمر C1058‏ إذا ما دعت الحاجة 
إلى ذلك. 

أما الزر حول البرنامج فيمكنك اظهار رسالة حوار كما فعلنا سابقا. 

أما إذا أردت أن تجعل النافذة التي تظهر أكثر جاذبية فسيكون بإمكانك إضافة نموذج جديد للبرنامج و قم 
بإضافة ما تريده من معلومات صور أو روابط لمواقع معينة. ما عليك القيام به بعد ذلك هو مجرد و ضع الكود 
التالي: إثر حدث النقر على زر حول البرنامج 

form2.show 

و الذي يقوم بإظهار النموذج الثاني إذا ما افترضنا أنك قد قمت حقا بإنشائه. 


برنامج عارض الأحاديث النبوية 


سنقوم الآن بإنشاء برنامج لابد و أن الكثير منا كانت لهم رغبة جمة في بناء برامج مماثلة له. فنجد أن 
الكثير من المبرمجين يسعون حثيثا لمحاكاة التطبيقات التي تعمل مع بدا التشغيل مثل برنامج الآذان 
الشهير. نحن في هذا المشروع لن ننشأ برنامج بحجم هذا الأخير, بل سنكتفي ببرنامج يعمل مع بدء 
تشغيل الويندوز ليظهر لنا في كل مرة حديثا نبويا ( يمكن للمبرمج اختيار ما يشاء) على هيئة صورة ومز 
بينما يمكن استبدال هذه الهيئة بنص × أو ملف صوتي ۳03 و قس على ذلك. و المقصود من هذا 
البرنامج هو إنعاش العقل الرياضي للمبرمج. فيا ترى كيف يتم ذلك ؟ 


کل ما نحتاجه هو الأداة غedi‏ , ×XPManifest lo Timer , UpDown‏ فلا حاجة لنا به إذ وظیفته إعطاء 
شكل ويندوز اكس بي للنموذج, و نحن في هذا البرنامج لن نمكن المستخدم من رؤية هذه الواجهة. 
و نضبط خصائص الأداة 00W11ملا‏ كما يلي: Associate = Edit1‏ 


PDF created with pdfFactory trial version www.pdffactory.com 


و يتم هذا عن طريق تحديد الأداة 00۷۸1ملا تم الإنتقال إلى قائمة الخصائص و البحث عن الخاصية 
Associate‏ وضبطها على Edi†1‏ 


Hl Associate Editl 


و نضبط خصائص الأداة 8۵۲1 كما يلي: 0 = ا×ع.1اdiكم‏ 
في الحقيقة بمجرد ضبط الخاصية 1ال٤‏ = Associate‏ للأداة 071 up‏ فإن خاصية 

ed¡t1.teX×t = 0‏ سوف تحدث آلیا. 
الآن نقوم بحفظ البرنامج في مجلد نسميه ١۵اء|‏ نقوم بإنشائه يدويا في القرص الصلب ٤>‏ ونضع 
داخل هذا المجلد مجلدا فرعيا و نسميه ا65 . و نضع في هذا المجلد مجموعة من الصور ذات نمط 9م[ 
و نرقمها من 0 إلى ما نشاء ( انا وضعت 9 صور كل صورة تحمل حديثا نبويا) كما يلي: 


1 
E Û2 x 265‏ تا متا لاي نن اشر خلا لاد خن ني انف 
IPE Image‏ | 2# ااب 
0 ای ل که ا و شید رت ن سی قر ن ذذ 
ÊU] x 33b‏ چ جل عل چ 
PES Image‏ 2 2 او ای کچ امھ ت ری رت ت فام a.‏ 


W 


ومهام البرنامج هو فتح صورة من الصور في كل مرة يشتغل فيها البرنامج و ليتم ذلك قم بالنقر المزدوج 
على النموذج و اكتب الأمر التالي: 


procedure TForm1.FormCreate(Sender: TObject); 


begin 
ShellExecute (Handle, 'open', PChar (‘c:\islam\test\'+ edit1.text +'.jpg') , nil, nil, SW_SHOW); 
end; 


كي يعمل هذا الكود قم بإضافة الفئة ١۸۴١١ء5‏ إلى كعیں 


interface 


uses 
Windouwa, REqiIS2SLEIY, Messzage3, SyYSUrLil3, 
Dialog3,rmmayatem, LPL , SE MSN, BSLEACEr 


type 


حيث يقوم هذا الأمر بفتح ملف ما من المسار التالي أكع٤اهاءةا:ء‏ أما اسم الملف فهنا تكمل 
المشكلة فلو حددناه ب 0.9 فسيكون المسار على هذا النحو (عصز.5)|0٥٤ا١”14ءذا:ء')‏ مما يعني 
أننا سنكتب 10 أوامر (من صفر إلى 9) و إذا كان عدد الصور ( الأحاديث) التي أرغب في عرضها 300 فهذا 
يعني أنني مجبر على كتابة 301 كود مع تغيير إسم الملف 2«ز.0 عمز.1 #مز.2 p3ز.300.‏ لتجنب 
هذه المشقة رأيت أن أجعل إسم الملف هو محتوى ( نص) الأداة 1اأكه + النص 'عصز.' فإذا قمنا 
بتشغيل البرنامج سيقوم بالذهاب إلى المجلد 1ء و البحث عن الملف الذي يحمل الإسم التالي: 
إذا كان محتوى الأداة 801 يساوي 4 فإنه سيتم إضافتها إلى النص 'عص[.' فيصبح اسم الصورة التي 
سيظهرها البرنامج من المسار 'أ)ك٤٤ا١141ءذا:ء'‏ هي عٍمرز.4 فيصبح و كأننا كتبنا الأمر التالي 
ShellExecute (Handle, 'open', PChar (‘c:\islam\test\4.jpg') , nil, nil, SW_SHOW);‏ 


لابد و أنك أدركت أننا أردنا جعل محتوى النص متفغييرا آليا فيكون الصفر عند أول إستخدام ثم ينتقل للرقم 

إلى غاية بلوغ العدد النهائي وفقا لعدد الصور التي وضعتها فإذا كنت قد وضعت تسع صور فلابد لك 
من إنشاء أمر يجعل محتوى النص يعود إلى الصفر ( يستحسن وضع ما يزيد عن 100 صورة حتى لا 
يشعر المستخدم بأنه يقرأ نفس الأحاديث). 
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ما نريده الآن هو كيفية تغيير محتوى النص آليا. يكو ن هذا وفق الكود التالي: 


procedure TForm1.FormCreate(Sender: TObject); 
begin 


updown1.Position:=StrToint(Edit1.Text)+1 ; 
end; 


الكود الذي أضفناه يقوم بجعل وضع الأداة 1د سهلمں = محتوى الأداة 1+1اdiع‏ م lلدlلö StrToint‏ 
فتمكننا من تحويل محتوى الأداة النصية إلى حالة رقمية. و مجمل القول هو أن البرنامج عند اشتغاله 


سيقوم بتنفيذ مايلي: 
ShellExecute (Handle, 'open', PChar (‘c:\islam\test\0.jpg') , nil, nil, SW_SHOW);‏ 


تم ینظر إلى محتوى الأداة 1 فإذا و جده = 0 فانه یضیف له الرقم 1 فیصبح 1 
فتصبح الصورة ( الحديث) التي ستفتح المرة القادمة هي 

ShellExecute (Handle, 'open', PChar (‘c:\islam\test\1.jpg') , nil, nil, SW_SHOW); 
2 تم ینظر إلى محتوی الأداة 1 مجددا فإاذا و جده = 1 فانه یضیف له الرقم 1 فیصبح‎ 
فتصبح الصورة ( الحديث) التي ستفتح المرة القادمة هي‎ 

ShellExecute (Handle, 'open', PChar (‘c:\islam\test\2.jpg') , nil, nil, SW_SHOW); 
فإذا بلغ عدد الصور تسعة سيقوم البرنامج بالعودة إلى الصورة رقم 0 و ذلك وفقا للكود التالي‎ 


procedure TForm1.FormCreate(Sender: TObject); 
begin 


if strToint(edit1.text) =9 then 
Updown1.position:= 0 ; 
end; 


لو قمت بتنفيذ البرنامج ثم إغلاقه فتشغيله من جديد فإنك تلاحظ أن 1= و هذا لأن البرنامج لا 
يحتفظ بآخر حالة كان عليها بل إنه يعود لحالة التصميم و هو 0= فإذا أضيف له الرقم 1 و فقا 


للكود السالف الذكر فسيكون المحتوى هو 1 و سيحدث هذا في كل مرة. أما ما يجب فعله فهو أن 
يحتفظ البرنامج بآخر حالة عليه. فإذا كانت العملية السالفة قد تمت بنجاح وأن 1= قإن 


الحالة هذه يجب ألا تتغير حتى تصبح العملية القادمة هي 1+1 = 2 وبالتالي تشغيل الصورة التي تحمل 
هذا الإسم. و كي يحتفظ البرنامج بأخر حالة كان عليها ثمة دالة سنضيفها للبرنامج في آخر عملية 
البرمجة. 


الآن وجب علينا إنشاء الأمر الذي يجعل البرنامج يعمل مع بدء التشغيل. 


procedure TForm1.FormCreate(Sender: TObject); 
var 

reg: TRegistry; 
begin 


reg := TRegistry.Create; 
reg.RootKey := HKEY_LOCAL_ MACHINE; 
reg.LazyWrite := false; 
reg.OpenKey(Software\Microsoft\Windows\CurrentVersion\Run', 
false); 
reg. WriteString(My App', Application.ExeName); 
reg.CloseKey; 
reg.free; 
end; 


PDF created with pdfFactory trial version www.pdffactory.com 


أما الآن نقوم بالنقر المزدوج على الأداة 1۳١۲1‏ و كتابة الكود التالي و الذي يقوم بإغلاق البرنامج بعد 
لحضات من تشغيلة. و بالتالي فإن ما يشاهده المستخدم هو الصورة التي تحوي الحديث النبوي و ليس 
البرنامج الذي صممناه. 


procedure TForm1.Timer1Timer(Sender: TObject); 
begin 

form1.close; 

end; 


يمكنك حفظ البرنامج تم إعادة تشغيل الويندوز و ستظهر لك الصورة رقم 1 و ستظل نفس الصورة تظهر 
مع كل تشغيل مالم تضف الكود التالي: 
1 - قم باضافة مايلي 
public‏ 
constructor Create (AOwner: TComponent); override; // (1)‏ 
procedure BeforeDestruction; override; // (2)‏ 
end;‏ 


var 
Forml: TForml; 
PreservePath: string; // (3) 
implementation 


{$R *.dfm} 


constructor TForm1l. Create (AOwner: TComponent); // (4) 
begin 


PreservePath := ExtractFilePath (Application. ExeName) + 
'Preserve'; 

if not DirectoryExists (PreservePath) then 
CreateDir (PreservePath); 

PreservePath := PreservePath + '\'; 


if FileExists (PreservePath + ClassName + '.sav') then 
begin 
CreateNew (AOwner, 0); 
with TFileStream. Create (PreservePath + ClassName + '.sav'", 
fmOpenRead or fmShareDenyWrite) do 
try 
ReadComponent (Self) ; 
finally 
Free; 
end; 
end 
else 


inherited Create (AOwner) ; 
end, 
procedure TForm1l . BeforeDestruction; // 
begin 

inherited; 


with TFileStream. Create (PreservePath + ClassName + '.sav'", 
fmCreate) do 


PDF created with pdfFactory trial version www.pdffactory.com 


try 
WriteComponent (Self); 
finally 
Free; 
end; 
end; 


ملاحظة تم الإستعانة بهذه الدالة من موقع خالد شقروني. 
http://www.shagrouni.com/ arabic/index. html‏ 
بهذا نکون قد أنهينا برنامجنا و لا نحتاج لشيء سوی تحزيمه على شرط استخراج البرنامج و المجلد 


الفرعي 151 الذي يضم الصور في هذا المسار "هاءا |:€ و هذا العمل لا يحتاج إلى عبقرية خصودصا 
مع توفر عدد كبير من البرامج الخاصة بعمل 5۴7۴ . 


= 3- Windows Picture and Fax Viewer ا‎ 


غد ع | کر کر | ھ کے 


هذا نموذج لما يظهر مع بعد التشغيل. يمكنك التلاعب بهيئة الملفات كما تشاء كما يمكنك إظهار واجهة 
البرنامج و تمكين المستخدم من ضبط بعض الخصائص كأن يختار نوع الأحاديث وفقا للموضوع أو اختيار 

ملفات صوتية أو ملفات الفلاش بلاير التي تكون قد صممتها أو حصلت عليها من عند زميل مختص في 
هذا المجال كي تبني برامج محترمة . 


عموما, يمكنك بناء عدة برامج وفقا للطريقة السابقة. 
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في الأخير أنوه أن مشاريع أخرى كنت بصدد اعدادها , غير أن انصرافي عن مجال المبرمجة قد يطول 
فأحببت أن أختم الكتيب عند هذا الحد عسى أن ينتفع القراء بما يحويه من معلومات. 


کما أحيلكم إلى هذه المصادر الهامة لتعلم لغة دلفي 
موقع المبرمج الإيطالي ماركو كانتو 
www. marcocantu. Com‏ 


يمكنكم تحميل كتابه أساسيات باسكال مجانا و باللغة العربية 


موقع الفريق العربي للبرمجة, و هو أحد أغنى المواقع بالمادة العلمية الراقية المتوفرة على صفحات 
منتدیاته | 
VA afabiear 2000. com‏ 


لقد تم الإستعانة ببعض المواضيع الموجودة على صفحات هذا الموقع في كتابنا هذا. 


إاعداد : يوسف بوسعیيد 
You_ per7@hotmail.com‏ 
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